home *** CD-ROM | disk | FTP | other *** search
/ Utilities Professional 1-1500 / Utilities Professional 1-1500 (1994)(WPD)[!].iso / 12511500 / var1479.dms / var1479.adf / S / DPat < prev    next >
AmigaDOS Script File  |  1992-01-09  |  668b  |  27 lines
  1. .key com/a,pat/a,dir/a,opt1,opt2,opt3,opt4
  2. failat 21
  3. .bra {
  4. .ket }
  5. echo >ENV:qw{$$} "{dir}" first=256
  6. IF $qw{$$} EQ ":"
  7.   list >t:q{$$} {pat} lformat="{com} *"%s%s*" *"{dir}%s*" {opt1} {opt2} {opt3} {opt4}"
  8.   skip doit
  9. ENDIF
  10. IF $qw{$$} EQ "/"
  11.   list >t:q{$$} {pat} lformat="{com} *"%s%s*" *"{dir}%s*" {opt1} {opt2} {opt3} {opt4}"
  12.   skip doit
  13. ENDIF
  14. IF EXISTS {dir}
  15.   list >t:q{$$} {pat} lformat="{com} *"%s%s*" *"{dir}/%s*" {opt1} {opt2} {opt3} {OPT4}"
  16. ELSE
  17.   list >t:q{$$} {pat} lformat="{com} *"%s%s*" *"{dir}*" {opt1} {opt2} {opt3} {OPT4}"
  18. ENDIF
  19. lab doit
  20. IF NOT FAIL
  21.   execute t:q{$$}
  22. ELSE
  23. echo "{pat} not found"
  24. ENDIF
  25. failat 10
  26. ;do wildcards for double arg command
  27.